(Fexpand_file_name): Don't remove trailing / from NEWDIR if just "/".

diff --git a/src/fileio.c b/src/fileio.c
index 05cc4677b64b7cb4570be17d8bb423d874060cad..6c74dccc2eec4b3d8d53631f8ba2e608cfdeace0 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1,5 +1,5 @@
 /* File IO for GNU Emacs.
-   Copyright (C) 1985, 1986, 1987, 1988, 1992 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1992, 1993 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -847,7 +847,7 @@ See also the function `substitute-in-file-name'.")
     {
       /* Get rid of any slash at the end of newdir.  */
       int length = strlen (newdir);
-      if (newdir[length - 1] == '/')
+      if (length > 1 && newdir[length - 1] == '/')
        {
          unsigned char *temp = (unsigned char *) alloca (length);
          bcopy (newdir, temp, length - 1);